home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Amos / BeastScroll / BEAST_SCROLL.AMOS / BEAST_SCROLL.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1996-02-23  |  3.8 KB  |  111 lines
  1. ' Beast Scroll has appeared on several 
  2. ' AMOS source disks, but no author has 
  3. ' been given.  If run on an NTSC system
  4. ' is must be PAL booted to see the bottom
  5. ' of the screen. 
  6. '
  7. '
  8. BEAST
  9. Procedure BEAST
  10.    Unpack 10 To 5 : Hide On : Unpack 11 To 6 : Unpack 12 To 7
  11.    Screen Hide 5 : Screen Hide 6 : Screen Hide 7
  12.    Screen Open 0,680,205,8,Lowres : Curs Off : Flash Off 
  13.    Screen Display 0,120,25,,
  14.    Palette $0,$250,$40,$30,$20,$310,$320,$420,$999,$777,$666,$555,$444,$333,$0,$0
  15.    Screen Open 1,680,205,8,Lowres : Curs Off : Flash Off 
  16.    Palette $0,0,0,0,0 : Screen Display 1,120,25,,
  17.    Screen 0 : Ink 0 : Paint 10,10
  18.    Screen 1 : Ink 0 : Paint 10,10
  19.    Wait 10
  20.    Screen 0
  21.    Palette $0,$250,$40,$30,$20,$310,$320,$420,$0,$555,$777,$666,$555,$444,$333,$AAA
  22.    Dual Playfield 0,1
  23.    Screen Copy 5,0,0,320,205 To 0,0,0
  24.    Screen Copy 5,0,0,40,205 To 0,640,0
  25.    Screen Copy 5,0,0,320,205 To 0,320,0 : Screen Close 5
  26.    Screen Copy 6,0,73,320,146 To 1,0,110
  27.    Screen Copy 6,0,73,40,146 To 1,640,110
  28.    Screen Copy 6,0,0,320,40 To 1,0,0
  29.    Screen Copy 6,0,0,40,40 To 1,640,0
  30.    Screen Copy 6,0,73,320,146 To 1,320,110
  31.    Screen Copy 6,0,0,320,40 To 1,320,0 : Screen Close 6
  32.    Set Rainbow 0,0,199,"","",""
  33.    Rainbow 0,0,0,199
  34.    Colour Back 0
  35.    Restore RDATA
  36.    For C=0 To 198 : Read CVA : Rain(0,C)=CVA
  37.    Next C : View 
  38.    RDATA:
  39.    Data $25F,$25F,$25F,$25F,$25F,$25F,$25F,$25F
  40.    Data $25F,$25F,$25F,$25F,$25F,$25F,$25F,$25F
  41.    Data $25F,$25F,$25F,$25F,$35F,$25F,$35F,$25F
  42.    Data $35F,$25F,$35F,$35F,$25F,$35F,$35F,$25F
  43.    Data $35F,$25F,$35F,$25F,$45F,$35F,$35F,$35F
  44.    Data $25F,$35F,$25F,$35F,$45F,$35F,$45F,$35F
  45.    Data $45F,$35F,$35F,$45F,$35F,$45F,$45F,$45F
  46.    Data $45F,$45F,$45F,$45F,$45F,$45F,$55F,$45F
  47.    Data $55F,$45F,$55F,$45F,$55F,$55F,$55F,$55F
  48.    Data $55F,$55F,$55F,$55F,$55F,$55F,$55F,$55F
  49.    Data $65F,$55F,$65F,$65F,$55F,$65F,$55F,$65F
  50.    Data $65F,$65F,$65F,$65F,$65F,$65F,$65F,$65F
  51.    Data $65F,$75F,$65F,$75F,$65F,$75F,$65F,$75F
  52.    Data $85F,$75F,$85F,$75F,$85F,$85F,$85F,$85F
  53.    Data $85F,$95F,$85F,$95F,$85F,$95F,$95F,$94F
  54.    Data $95F,$94F,$95F,$94F,$93F,$94F,$93F,$92F
  55.    Data $93F,$92F,$93F,$92F,$92F,$92F,$92F,$A2F
  56.    Data $92F,$A2F,$92F,$A2F,$A2F,$B2F,$A2F,$A2F
  57.    Data $B2F,$A2F,$C2F,$B2F,$C2F,$B2F,$C2F,$C2F
  58.    Data $D2F,$D2F,$C2F,$D2F,$C2F,$D2F,$C2F,$D2F
  59.    Data $E2F,$D2F,$E2F,$D2F,$E2F,$E2F,$F2F,$F2F
  60.    Data $E2F,$F2F,$E2F,$F2F,$E2F,$F3F,$F2F,$F2F
  61.    Data $F3F,$F3F,$F2F,$F3F,$F4F,$F3F,$F4F,$F4F
  62.    Data $F4F,$F4F,$F4F,$F5F,$F4F,$F5F,$F4F,$F4F
  63.    Data $20,$20,$20,$20,$20,$20,$20,$20
  64.    Data $20,$20,$20,$20,$20,$20,$20,$20
  65.    Screen Open 2,995,100,8,Lowres : Curs Off : Flash Off 
  66.    Screen Display 2,120,221,,90 : Get Palette 7
  67.    Palette $0,$250,$40,$30,$20,$310,$320,$420,$999,$777,$666,$555,$444,$333,$0,$0
  68.    Screen Open 3,995,100,8,Lowres : Curs Off : Flash Off 
  69.    Screen Display 3,120,221,,90 : Get Palette 7
  70.    Screen Offset 2,1,0
  71.    Screen 2 : Ink 0 : Paint 10,10 : Bob 1,150,5,1
  72.    Screen 3 : Ink 0 : Paint 10,10
  73.    Wait 10
  74.    Screen 2
  75.    Palette $0,$313,$414,$525,$636,$757,$333,$777,$0,$420,$320,$310,$210,$250,$40,$20
  76.    Dual Playfield 2,3
  77.    Screen Copy 7,0,0,320,100 To 3,0,0
  78.    Screen Copy 7,0,0,320,100 To 3,320,0
  79.    Screen Copy 7,0,0,320,100 To 3,640,0
  80.    Screen Copy 7,0,0,35,100 To 3,960,0 : Screen Close 7
  81.    Screen 3
  82.    Channel 0 To Screen Offset 0
  83.    Channel 1 To Screen Offset 1
  84.    Channel 2 To Screen Offset 3
  85.    A$="X: L X=1;"
  86.    A$=A$+"R: L X=X+4; P;"
  87.    A$=A$+"I X>320 J X; J R"
  88.    B$="X: L X=1;"
  89.    B$=B$+"R: L X=X+2; P;"
  90.    B$=B$+"I X>320 J X; J R"
  91.    C$="X: L X=1;"
  92.    C$=C$+"R: L X=X+6; P;"
  93.    C$=C$+"I X>640 J X; J R"
  94.    Amal 0,A$
  95.    Amal 1,B$
  96.    Amal 2,C$
  97.    Wait 100
  98.    Amal On 
  99.    Screen 3
  100.    Do 
  101.       If Mouse Key=1 Then Goto DEMO
  102.    Loop 
  103.    '
  104.    DEMO:
  105.    Amal Off 
  106.    Wait 50
  107.    Rainbow Del 0
  108.    Screen Close 1 : Screen Close 0
  109.    Screen Close 3 : Screen Close 2
  110.    End 
  111. End Proc